inherited FLancamento: TFLancamento
  Left = 250
  Top = 100
  Caption = 'Lan'#231'amento em Conta Corrente'
  Constraints.MaxHeight = 556
  Constraints.MinWidth = 753
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 16
  inherited pcCadastro: TPageControl
    ActivePage = TsCadastro
    inherited TsPesquisa: TTabSheet
      OnShow = TsPesquisaShow
      inherited dbgPesquisaPadra: TDBGrid
        Columns = <
          item
            Expanded = False
            FieldName = 'LANC_CODIGO'
            Title.Alignment = taCenter
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'LANC_DATA'
            Width = 90
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'LANC_CONTACORRENTE_DESC'
            Width = 150
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'LANC_CPCR'
            Title.Alignment = taCenter
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'LANC_TITULO'
            Title.Alignment = taCenter
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'LANC_VALORFINAL'
            Title.Alignment = taRightJustify
            Width = 100
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'LANC_INDCENTSAI'
            Width = 8
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'LANC_HISTORICO1'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'LANC_HISTORICO2'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'LANC_CHEQUE'
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'LANC_DOCUMENTO'
            Title.Alignment = taCenter
            Width = 90
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'LANC_PEDIDO'
            Title.Alignment = taCenter
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'LANC_NOTAFISCAL'
            Title.Alignment = taCenter
            Visible = True
          end>
      end
      inherited pnPesquisaPadrao: TPanel
        object GroupBox2: TGroupBox
          Left = 689
          Top = 9
          Width = 147
          Height = 43
          Ctl3D = False
          ParentCtl3D = False
          TabOrder = 3
          object CheckBox1: TCheckBox
            Tag = 1
            Left = 1
            Top = 8
            Width = 145
            Height = 17
            Caption = 'N'#227'o Conciliado'
            Color = clYellow
            Ctl3D = False
            ParentColor = False
            ParentCtl3D = False
            TabOrder = 0
            OnClick = CheckBox1Click
          end
          object CheckBox2: TCheckBox
            Tag = 1
            Left = 1
            Top = 25
            Width = 145
            Height = 17
            Caption = 'Conciliado'
            Color = clLime
            Ctl3D = False
            ParentColor = False
            ParentCtl3D = False
            TabOrder = 1
            OnClick = CheckBox1Click
          end
        end
      end
    end
    inherited TsCadastro: TTabSheet
      inherited panel1: TPanel
        OnExit = DBEMultaExit
        object Label1: TLabel [0]
          Left = 6
          Top = 47
          Width = 40
          Height = 16
          Caption = 'C'#243'digo'
        end
        object Label2: TLabel [1]
          Left = 78
          Top = 47
          Width = 79
          Height = 16
          Caption = 'Data Lan'#231'/Bx'
        end
        object Label3: TLabel [2]
          Left = 76
          Top = 94
          Width = 87
          Height = 16
          Caption = 'Conta Corrente'
        end
        object Label4: TLabel [3]
          Left = 7
          Top = 143
          Width = 52
          Height = 16
          Caption = 'Natureza'
        end
        object Label5: TLabel [4]
          Left = 74
          Top = 143
          Width = 67
          Height = 16
          Caption = 'N'#186' do T'#237'tulo'
          FocusControl = DBETitulo
        end
        object Label6: TLabel [5]
          Left = 380
          Top = 247
          Width = 78
          Height = 16
          Caption = 'Hist'#243'rico (F8)'
          FocusControl = DBEHistorico
        end
        object Label7: TLabel [6]
          Left = 538
          Top = 143
          Width = 80
          Height = 16
          Caption = 'N'#186'Documento'
          FocusControl = DBEDocumento
        end
        object Label8: TLabel [7]
          Left = 6
          Top = 198
          Width = 168
          Height = 16
          Caption = 'Classifica'#231#227'o Financeira (F8)'
        end
        object Label9: TLabel [8]
          Left = 6
          Top = 312
          Width = 108
          Height = 16
          Caption = 'Esp'#233'cie Monet'#225'ria'
        end
        object Label10: TLabel [9]
          Left = 193
          Top = 311
          Width = 58
          Height = 16
          Caption = 'N'#186'Cheque'
          FocusControl = DBENCheque
        end
        object Label11: TLabel [10]
          Left = 380
          Top = 311
          Width = 58
          Height = 16
          Caption = 'Nominal a'
          FocusControl = DBENominal
        end
        object Label13: TLabel [11]
          Left = 111
          Top = 364
          Width = 71
          Height = 16
          Caption = 'Vr. Principal'
          FocusControl = DBEValor2
        end
        object Label15: TLabel [12]
          Left = 257
          Top = 311
          Width = 75
          Height = 16
          Caption = 'Data Cheque'
        end
        object Label17: TLabel [13]
          Left = 6
          Top = 244
          Width = 85
          Height = 16
          Caption = 'Conta Cont'#225'bil'
        end
        object DBText3: TDBText [14]
          Left = 212
          Top = 244
          Width = 50
          Height = 16
          AutoSize = True
          DataField = 'PLANOCONT_CODIGOCONTABIL'
          DataSource = DSPlanoContabil
        end
        object Label16: TLabel [15]
          Left = 380
          Top = 198
          Width = 121
          Height = 16
          Caption = 'Centro de Custo (F8)'
        end
        object Label20: TLabel [16]
          Left = 171
          Top = 143
          Width = 92
          Height = 16
          Caption = 'Fornecedor (F8)'
        end
        object Label12: TLabel [17]
          Left = 586
          Top = 364
          Width = 117
          Height = 16
          Caption = 'Origem Lan'#231'amento'
        end
        object lbConciliado: TLabel [18]
          Left = 566
          Top = 109
          Width = 163
          Height = 20
          AutoSize = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label22: TLabel [19]
          Left = 218
          Top = 364
          Width = 88
          Height = 16
          Caption = 'Vr. Multa/Juros'
        end
        object Label21: TLabel [20]
          Left = 377
          Top = 92
          Width = 88
          Height = 16
          Caption = 'Autorizado por:'
        end
        object Label23: TLabel [21]
          Left = 195
          Top = 47
          Width = 103
          Height = 16
          Caption = 'Fonte de Recurso'
        end
        object Label18: TLabel [22]
          Left = 5
          Top = 364
          Width = 76
          Height = 16
          Caption = 'Vr. Desconto'
          FocusControl = DBEValor2
        end
        object Label19: TLabel [23]
          Left = 324
          Top = 364
          Width = 87
          Height = 16
          Caption = 'Vr. Pago Maior'
        end
        object Label24: TLabel [24]
          Left = 6
          Top = 285
          Width = 183
          Height = 16
          Caption = 'F8 = Todos; F7 = Relacionados'
        end
        object Label25: TLabel [25]
          Left = 429
          Top = 364
          Width = 62
          Height = 16
          Caption = 'Valor Final'
        end
        object lbNPedido: TLabel [26]
          Left = 656
          Top = 144
          Width = 54
          Height = 16
          Caption = 'N'#186'Pedido'
        end
        object Label27: TLabel [27]
          Left = 736
          Top = 144
          Width = 80
          Height = 16
          Caption = 'N'#186'Nota Fiscal'
        end
        object lbNatureza: TLabel [28]
          Left = 218
          Top = 198
          Width = 33
          Height = 16
          Caption = 'Saida'
        end
        inherited panel2: TPanel
          TabOrder = 23
          inherited SBAtualiza: TSpeedButton
            Height = 26
          end
          inherited BtnFechar: TBitBtn
            Left = 645
          end
          inherited DBNavigator1: TDBNavigator
            Left = 682
            Width = 132
            Height = 26
            Hints.Strings = ()
          end
          inherited streg: TStaticText
            Left = 559
          end
        end
        inherited panel3: TPanel
          Top = 420
          Height = 64
          TabOrder = 24
          inherited LUsuario: TLabel
            Top = 34
          end
          inherited LDataMod: TLabel
            Top = 52
          end
          inherited LNRegistros: TLabel
            Left = 159
            Top = 34
          end
          inherited BtnConsuta: TBitBtn
            Left = 241
            Top = 33
            Width = 112
            TabOrder = 5
            Visible = False
            OnClick = BtnConsutaClick
          end
          inherited stSituacaoReg2: TStaticText
            TabOrder = 6
          end
          object BtnDuplicar: TBitBtn
            Left = 123
            Top = 5
            Width = 112
            Height = 25
            Caption = '&Duplicar Lancto'
            TabOrder = 2
            OnClick = BtnDuplicarClick
            Glyph.Data = {
              16050000424D160500000000000036040000280000000E0000000E0000000100
              080000000000E000000000000000000000000001000000000000000000000000
              BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000C0DCC000F0CA
              A600000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
              0303030303030303000003030303030303030303030303030000030303030303
              0303030303030303000003030303030000000303030303030000030303030300
              FF000303030303030000030303030300FF000303030303030000030300000000
              FF000000000303030000030300FFFFFFFFFFFFFF000303030000030300000000
              FF000000000303030000030303030300FF000303030303030000030303030300
              FF00030303030303000003030303030000000303030303030000030303030303
              0303030303030303000003030303030303030303030303030000}
          end
          object BtnRecibo: TBitBtn
            Left = 9
            Top = 32
            Width = 112
            Height = 25
            Caption = 'Recibo'
            TabOrder = 3
            OnClick = BtnReciboClick
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000130B0000130B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
              00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
              8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
              8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
              8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
              03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
              03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
              33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
              33333337FFFF7733333333300000033333333337777773333333}
            NumGlyphs = 2
          end
          object btnChequePre: TBitBtn
            Left = 9
            Top = 5
            Width = 112
            Height = 25
            Caption = 'Cheque'
            TabOrder = 4
            OnClick = btnChequePreClick
          end
        end
        object DBLCBConta: TDBLookupComboBox
          Left = 76
          Top = 111
          Width = 292
          Height = 22
          Ctl3D = False
          DataField = 'LANC_CONTA'
          DataSource = dsCadastro
          KeyField = 'CONT_CORR_CODIGO'
          ListField = 'CONT_CORR_DESCRICAO'
          ListSource = DSConta
          ParentCtl3D = False
          TabOrder = 3
          OnExit = DBLCBContaExit
          OnKeyDown = DBLCBContaKeyDown
        end
        object DBCBCPCR: TDBComboBox
          Left = 7
          Top = 161
          Width = 59
          Height = 24
          CharCase = ecUpperCase
          Ctl3D = False
          DataField = 'LANC_CPCR'
          DataSource = dsCadastro
          ItemHeight = 16
          Items.Strings = (
            'P'
            'R')
          ParentCtl3D = False
          TabOrder = 5
          OnExit = DBCBCPCRExit
          OnKeyPress = DBCBCPCRKeyPress
        end
        object DBETitulo: TDBEdit
          Left = 74
          Top = 161
          Width = 90
          Height = 22
          CharCase = ecUpperCase
          Ctl3D = False
          DataField = 'LANC_TITULO'
          DataSource = dsCadastro
          ParentCtl3D = False
          TabOrder = 6
          OnExit = DBETituloExit
        end
        object DBEHistorico: TDBEdit
          Left = 383
          Top = 265
          Width = 410
          Height = 22
          CharCase = ecUpperCase
          Ctl3D = False
          DataField = 'LANC_HISTORICO1'
          DataSource = dsCadastro
          ParentCtl3D = False
          TabOrder = 11
          OnKeyDown = DBEHistoricoKeyDown
        end
        object DBEDocumento: TDBEdit
          Left = 538
          Top = 161
          Width = 96
          Height = 22
          CharCase = ecUpperCase
          Ctl3D = False
          DataField = 'LANC_DOCUMENTO'
          DataSource = dsCadastro
          ParentCtl3D = False
          TabOrder = 7
          OnExit = DBEDocumentoExit
        end
        object DBLCBPlano: TDBLookupComboBox
          Left = 6
          Top = 214
          Width = 369
          Height = 22
          Ctl3D = False
          DataField = 'LANC_PLANO'
          DataSource = dsCadastro
          KeyField = 'CODIGO'
          ListField = 'DESCRICAO'
          ListSource = DSPlano
          ParentCtl3D = False
          TabOrder = 8
          OnClick = DBLCBPlanoClick
          OnExit = DBLCBPlanoExit
          OnKeyDown = DBLCBPlanoKeyDown
        end
        object DBLCBEspecie: TDBLookupComboBox
          Left = 6
          Top = 329
          Width = 181
          Height = 22
          Ctl3D = False
          DataField = 'LANC_ESPECIE'
          DataSource = dsCadastro
          KeyField = 'ESP_CODIGO'
          ListField = 'ESP_DESCRICAO'
          ListSource = DSEspecie
          ParentCtl3D = False
          TabOrder = 13
          OnExit = DBLCBEspecieExit
          OnKeyDown = DBLCBContaKeyDown
        end
        object DBENCheque: TDBEdit
          Left = 193
          Top = 328
          Width = 59
          Height = 22
          CharCase = ecUpperCase
          Ctl3D = False
          DataField = 'LANC_CHEQUE'
          DataSource = dsCadastro
          ParentCtl3D = False
          TabOrder = 14
          OnKeyPress = DBENChequeKeyPress
        end
        object DBENominal: TDBEdit
          Left = 383
          Top = 328
          Width = 410
          Height = 22
          CharCase = ecUpperCase
          Ctl3D = False
          DataField = 'LANC_NOMINAL'
          DataSource = dsCadastro
          ParentCtl3D = False
          TabOrder = 16
          OnEnter = DBENominalEnter
        end
        object DBEValor2: TDBEdit
          Left = 433
          Top = 567
          Width = 139
          Height = 22
          CharCase = ecUpperCase
          Ctl3D = False
          ParentCtl3D = False
          TabOrder = 21
          Visible = False
          OnExit = DBEValor2Exit
          OnKeyPress = DBEMultaKeyPress
        end
        object DBDEDataCheque: TDBDateEdit
          Left = 257
          Top = 328
          Width = 117
          Height = 23
          DataField = 'LANC_DATACHEQUE'
          DataSource = dsCadastro
          CheckOnExit = True
          Ctl3D = False
          ButtonWidth = 26
          NumGlyphs = 2
          ParentCtl3D = False
          TabOrder = 15
          OnEnter = DBDEDataChequeEnter
        end
        object DBDEDataLancamento: TDBDateEdit
          Left = 76
          Top = 64
          Width = 109
          Height = 23
          DataField = 'LANC_DATA'
          DataSource = dsCadastro
          CheckOnExit = True
          Ctl3D = False
          ButtonWidth = 26
          NumGlyphs = 2
          ParentCtl3D = False
          TabOrder = 1
          OnEnter = DBDEDataLancamentoEnter
        end
        object DBEHistorico2: TDBEdit
          Left = 383
          Top = 287
          Width = 410
          Height = 22
          CharCase = ecUpperCase
          Ctl3D = False
          DataField = 'LANC_HISTORICO2'
          DataSource = dsCadastro
          ParentCtl3D = False
          TabOrder = 12
        end
        object DBLCBContaContabil: TDBLookupComboBox
          Left = 6
          Top = 265
          Width = 369
          Height = 22
          Hint = '(F7) Todos - (F8) Relacionados'
          Ctl3D = False
          DataField = 'LANC_CONTACONTABIL'
          DataSource = dsCadastro
          KeyField = 'PLANOCONT_CODIGO'
          ListField = 'PLANOCONT_DESCRICAO'
          ListSource = DSPlanoContabil
          ParentCtl3D = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 10
          OnKeyDown = DBLCBContaKeyDown
          OnKeyUp = DBLCBContaContabilKeyUp
        end
        object DBLCBCentroCusto: TDBLookupComboBox
          Left = 383
          Top = 214
          Width = 410
          Height = 22
          Ctl3D = False
          DataField = 'LANC_CENTROCUSTO'
          DataSource = dsCadastro
          KeyField = 'CODIGO'
          ListField = 'DESCRICAO'
          ListSource = DSCentro
          ParentCtl3D = False
          TabOrder = 9
          OnEnter = DBLCBCentroCustoEnter
          OnKeyDown = DBLCBCentroCustoKeyDown
        end
        object LFornecedorDescricao: TEdit
          Left = 171
          Top = 161
          Width = 359
          Height = 22
          TabStop = False
          Ctl3D = False
          ParentCtl3D = False
          ReadOnly = True
          TabOrder = 25
        end
        object dbcbxConciliado: TDBCheckBox
          Left = 543
          Top = 109
          Width = 21
          Height = 21
          DataField = 'CONCILIADO'
          DataSource = dsCadastro
          TabOrder = 22
          ValueChecked = 'S'
          ValueUnchecked = 'N'
          Visible = False
        end
        object dblAutorizante: TDBLookupComboBox
          Left = 377
          Top = 111
          Width = 153
          Height = 22
          Ctl3D = False
          DataField = 'AUTORIZANTE'
          DataSource = dsCadastro
          KeyField = 'USU_CODIGO'
          ListField = 'USU_NOME'
          ListSource = dsUsuario
          ParentCtl3D = False
          TabOrder = 4
        end
        object edJurosMulta: TRxCalcEdit
          Left = 219
          Top = 381
          Width = 97
          Height = 23
          AutoSize = False
          Ctl3D = False
          DisplayFormat = ',0.00'
          Enabled = False
          ButtonWidth = 0
          NumGlyphs = 2
          ParentCtl3D = False
          TabOrder = 19
          OnExit = edJurosMultaExit
          OnKeyDown = RxCalcEdit1KeyDown
        end
        object dbedJurosMulta: TDBEdit
          Left = 423
          Top = 560
          Width = 139
          Height = 24
          CharCase = ecUpperCase
          Color = clWhite
          DataField = 'LANC_JUROSMULTA'
          TabOrder = 27
          Visible = False
          OnEnter = DBEJurosMultaEnter
          OnExit = dbedJurosMultaExit
          OnKeyDown = dbedJurosMultaKeyDown
          OnKeyPress = DBEMultaKeyPress
        end
        object DBEValor: TRxDBCalcEdit
          Left = 113
          Top = 381
          Width = 97
          Height = 23
          DataField = 'LANC_VALOR'
          DataSource = dsCadastro
          Ctl3D = False
          DisplayFormat = ',0.00'
          ButtonWidth = 0
          NumGlyphs = 2
          ParentCtl3D = False
          TabOrder = 18
          OnExit = DBEValorExit
          OnKeyPress = DBEValorKeyPress
        end
        object dblFonteRecurso: TDBLookupComboBox
          Left = 195
          Top = 64
          Width = 311
          Height = 22
          Ctl3D = False
          DataField = 'LANC_FONTERECURSO'
          DataSource = dsCadastro
          KeyField = 'FONT_CODIGO'
          ListField = 'FONT_DESCRICAO'
          ListSource = dsFonteRecurso
          ParentCtl3D = False
          TabOrder = 2
          OnEnter = DBLCBCentroCustoEnter
          OnKeyDown = DBLCBContaKeyDown
        end
        object edOrigem: TEdit
          Left = 586
          Top = 381
          Width = 149
          Height = 22
          TabStop = False
          Ctl3D = False
          ParentCtl3D = False
          ReadOnly = True
          TabOrder = 28
        end
        object Panel4: TPanel
          Left = 631
          Top = 38
          Width = 560
          Height = 99
          BorderWidth = 3
          Color = clSilver
          Enabled = False
          TabOrder = 26
          Visible = False
          object LDiasAtraso: TLabel
            Left = 309
            Top = 21
            Width = 105
            Height = 16
            Caption = '                                   '
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clRed
            Font.Height = -13
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label14: TLabel
            Left = 305
            Top = 41
            Width = 99
            Height = 16
            Caption = 'Juros + Multa R$'
          end
          object DBRGMulta: TDBRadioGroup
            Left = 10
            Top = 6
            Width = 197
            Height = 38
            Caption = '  Tipo Multa  '
            Columns = 2
            Ctl3D = False
            DataField = 'LANC_TIPOMULTA'
            DataSource = dsCadastro
            Items.Strings = (
              'Percentual'
              'Valor')
            ParentCtl3D = False
            TabOrder = 0
            Values.Strings = (
              '1'
              '2')
          end
          object DBEMulta: TDBEdit
            Left = 217
            Top = 16
            Width = 85
            Height = 22
            CharCase = ecUpperCase
            Ctl3D = False
            DataField = 'LANC_MULTA'
            DataSource = dsCadastro
            ParentCtl3D = False
            TabOrder = 1
            OnEnter = DBEMultaEnter
            OnExit = DBEMultaExit
            OnKeyPress = DBEMultaKeyPress
          end
          object DBEJurosMulta: TDBEdit
            Left = 305
            Top = 58
            Width = 104
            Height = 22
            CharCase = ecUpperCase
            Color = clWhite
            Ctl3D = False
            DataField = 'LANC_JUROSMULTA'
            DataSource = dsCadastro
            ParentCtl3D = False
            TabOrder = 2
            OnEnter = DBEJurosMultaEnter
            OnExit = DBEJurosMultaExit
            OnKeyPress = DBEMultaKeyPress
          end
          object DBEJuros: TDBEdit
            Left = 217
            Top = 58
            Width = 85
            Height = 22
            CharCase = ecUpperCase
            Ctl3D = False
            DataField = 'LANC_JUROS'
            DataSource = dsCadastro
            ParentCtl3D = False
            TabOrder = 3
            OnEnter = DBEMultaEnter
            OnExit = DBEMultaExit
            OnKeyPress = DBEMultaKeyPress
          end
          object DBRGJuros: TDBRadioGroup
            Left = 10
            Top = 44
            Width = 197
            Height = 40
            Caption = '  Tipo Juros  '
            Columns = 2
            Ctl3D = False
            DataField = 'LANC_TIPOJUROS'
            DataSource = dsCadastro
            Items.Strings = (
              'Percentual'
              'Valor')
            ParentCtl3D = False
            TabOrder = 4
            Values.Strings = (
              '1'
              '2')
          end
          object btnVisibleFalse: TBitBtn
            Left = 463
            Top = 57
            Width = 92
            Height = 30
            Caption = 'Cancelar'
            TabOrder = 5
            OnClick = btnVisibleFalseClick
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              0400000000000001000000000000000000001000000000000000000000000000
              8000008000000080800080000000800080008080000080808000C0C0C0000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
              33333337777FF377FF3333993370739993333377FF373F377FF3399993000339
              993337777F777F3377F3393999707333993337F77737333337FF993399933333
              399377F3777FF333377F993339903333399377F33737FF33377F993333707333
              399377F333377FF3377F993333101933399377F333777FFF377F993333000993
              399377FF3377737FF7733993330009993933373FF3777377F7F3399933000399
              99333773FF777F777733339993707339933333773FF7FFF77333333999999999
              3333333777333777333333333999993333333333377777333333}
            NumGlyphs = 2
          end
          object btnOk: TBitBtn
            Left = 462
            Top = 17
            Width = 92
            Height = 31
            Caption = 'Ok'
            TabOrder = 6
            OnClick = btnOkClick
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000120B0000120B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
              555555555555555555555555555555555555555555FF55555555555559055555
              55555555577FF5555555555599905555555555557777F5555555555599905555
              555555557777FF5555555559999905555555555777777F555555559999990555
              5555557777777FF5555557990599905555555777757777F55555790555599055
              55557775555777FF5555555555599905555555555557777F5555555555559905
              555555555555777FF5555555555559905555555555555777FF55555555555579
              05555555555555777FF5555555555557905555555555555777FF555555555555
              5990555555555555577755555555555555555555555555555555}
            NumGlyphs = 2
          end
        end
        object RxDBCDesconto: TRxDBCalcEdit
          Left = 6
          Top = 381
          Width = 97
          Height = 23
          DataField = 'LANC_DESCONTO'
          DataSource = dsCadastro
          Ctl3D = False
          DecimalPlaces = 15
          DisplayFormat = ',0.00'
          ButtonWidth = 0
          NumGlyphs = 2
          ParentCtl3D = False
          TabOrder = 17
          OnExit = RxDBCDescontoExit
        end
        object RxDBCalcCredito: TRxDBCalcEdit
          Left = 324
          Top = 381
          Width = 97
          Height = 23
          DataField = 'LANC_CREDITO'
          DataSource = dsCadastro
          Ctl3D = False
          DecimalPlaces = 15
          DisplayFormat = ',0.00'
          ButtonWidth = 0
          NumGlyphs = 2
          ParentCtl3D = False
          TabOrder = 20
          OnExit = RxDBCalcCreditoExit
          OnKeyPress = DBEValorKeyPress
        end
        object edCodigo: TDBEdit
          Left = 7
          Top = 64
          Width = 61
          Height = 23
          TabStop = False
          AutoSize = False
          Ctl3D = False
          DataField = 'LANC_CODIGO'
          DataSource = dsCadastro
          ParentCtl3D = False
          ReadOnly = True
          TabOrder = 0
        end
        object Panel5: TPanel
          Left = 552
          Top = 64
          Width = 185
          Height = 22
          Caption = 'Panel5'
          TabOrder = 29
        end
        object RxDBValorFinal: TRxDBCalcEdit
          Left = 432
          Top = 381
          Width = 97
          Height = 23
          DataField = 'LANC_VALORFINAL'
          DataSource = dsCadastro
          ReadOnly = True
          Ctl3D = False
          DisplayFormat = ',0.00'
          ButtonWidth = 0
          NumGlyphs = 2
          ParentCtl3D = False
          TabOrder = 30
        end
        object RxDBNPedido: TRxDBCalcEdit
          Left = 655
          Top = 161
          Width = 57
          Height = 21
          DataField = 'LANC_PEDIDO'
          DataSource = dsCadastro
          ReadOnly = True
          Ctl3D = False
          DisplayFormat = '0'
          ButtonWidth = 0
          NumGlyphs = 2
          ParentCtl3D = False
          TabOrder = 31
        end
        object RxDBNNotaFiscal: TRxDBCalcEdit
          Left = 736
          Top = 161
          Width = 57
          Height = 21
          DataField = 'LANC_NOTAFISCAL'
          DataSource = dsCadastro
          ReadOnly = True
          Ctl3D = False
          DisplayFormat = '0'
          ButtonWidth = 0
          NumGlyphs = 2
          ParentCtl3D = False
          TabOrder = 32
        end
      end
    end
  end
  inherited PopupMenu1: TPopupMenu
    Left = 288
    Top = 272
    object Conciliado1: TMenuItem [3]
      Action = actConciliaDesconcilia
    end
  end
  inherited dsCadastro: TDataSource
    Left = 112
    Top = 264
  end
  inherited QCadastro: TQuery
    SQL.Strings = (
      'Select * from lancamento '
      ''
      '')
  end
  inherited dspCadastro: TDataSetProvider
    Left = 184
    Top = 288
  end
  inherited cdsCadastro: TClientDataSet
    Active = True
    BeforePost = cdsCadastroBeforePost
    Left = 96
    Top = 312
    object cdsCadastroLANC_CODIGO: TIntegerField
      Alignment = taCenter
      DisplayLabel = 'C'#243'digo'
      FieldName = 'LANC_CODIGO'
    end
    object cdsCadastroLANC_DATA: TDateTimeField
      DisplayLabel = 'Dt Lan'#231'/Bx'
      FieldName = 'LANC_DATA'
    end
    object cdsCadastroLANC_CONTA: TIntegerField
      Alignment = taCenter
      FieldName = 'LANC_CONTA'
    end
    object cdsCadastroLANC_CPCR: TStringField
      Alignment = taCenter
      DisplayLabel = 'P/R'
      FieldName = 'LANC_CPCR'
      Size = 1
    end
    object cdsCadastroLANC_TITULO: TIntegerField
      Alignment = taCenter
      DisplayLabel = 'N'#186'T'#237'tulo'
      FieldName = 'LANC_TITULO'
    end
    object cdsCadastroLANC_DOCUMENTO: TStringField
      DisplayLabel = 'N'#186'Documento'
      FieldName = 'LANC_DOCUMENTO'
      Size = 10
    end
    object cdsCadastroLANC_PLANO: TIntegerField
      FieldName = 'LANC_PLANO'
    end
    object cdsCadastroLANC_ESPECIE: TIntegerField
      FieldName = 'LANC_ESPECIE'
    end
    object cdsCadastroLANC_CHEQUE: TStringField
      DisplayLabel = 'N'#186'Cheque'
      FieldName = 'LANC_CHEQUE'
      Size = 6
    end
    object cdsCadastroLANC_NOMINAL: TStringField
      FieldName = 'LANC_NOMINAL'
      Size = 60
    end
    object cdsCadastroLANC_VALOR: TFloatField
      DisplayLabel = 'Valor Final'
      FieldName = 'LANC_VALOR'
      DisplayFormat = '#,##0.00'
    end
    object cdsCadastroLANC_TIPOMULTA: TStringField
      FieldName = 'LANC_TIPOMULTA'
      Size = 1
    end
    object cdsCadastroLANC_MULTA: TFloatField
      FieldName = 'LANC_MULTA'
    end
    object cdsCadastroLANC_TIPOJUROS: TStringField
      FieldName = 'LANC_TIPOJUROS'
      Size = 1
    end
    object cdsCadastroLANC_JUROS: TFloatField
      FieldName = 'LANC_JUROS'
    end
    object cdsCadastroUSUARIO: TStringField
      FieldName = 'USUARIO'
      Size = 10
    end
    object cdsCadastroDATAMODIFICACAO: TDateTimeField
      FieldName = 'DATAMODIFICACAO'
    end
    object cdsCadastroCODIGOEMPRESA: TIntegerField
      FieldName = 'CODIGOEMPRESA'
    end
    object cdsCadastroLANC_JUROSMULTA: TFloatField
      FieldName = 'LANC_JUROSMULTA'
    end
    object cdsCadastroLANC_DATACHEQUE: TDateTimeField
      FieldName = 'LANC_DATACHEQUE'
    end
    object cdsCadastroLANC_PLANOJUROSMULTA: TIntegerField
      FieldName = 'LANC_PLANOJUROSMULTA'
    end
    object cdsCadastroLANC_PLANODESCONTO: TIntegerField
      FieldName = 'LANC_PLANODESCONTO'
    end
    object cdsCadastroLANC_CENTROCUSTO: TIntegerField
      FieldName = 'LANC_CENTROCUSTO'
    end
    object cdsCadastroLANC_CONTACONTABIL: TIntegerField
      FieldName = 'LANC_CONTACONTABIL'
    end
    object cdsCadastroLANC_TRANSFERENCIA: TIntegerField
      FieldName = 'LANC_TRANSFERENCIA'
    end
    object cdsCadastroLANC_HISTORICO1: TStringField
      DisplayLabel = 'Hist'#243'rico - Primeira linha'
      FieldName = 'LANC_HISTORICO1'
      Size = 52
    end
    object cdsCadastroLANC_HISTORICO2: TStringField
      DisplayLabel = 'Hist'#243'rico - Segunda linha'
      FieldName = 'LANC_HISTORICO2'
      Size = 52
    end
    object cdsCadastroORIGEM: TIntegerField
      FieldName = 'ORIGEM'
    end
    object cdsCadastroCONCILIADO: TStringField
      FieldName = 'CONCILIADO'
      Size = 1
    end
    object cdsCadastroLANC_CAT_LANCTO: TIntegerField
      FieldName = 'LANC_CAT_LANCTO'
    end
    object cdsCadastroAUTORIZANTE: TIntegerField
      FieldName = 'AUTORIZANTE'
    end
    object cdsCadastroLANC_FONTERECURSO: TIntegerField
      FieldName = 'LANC_FONTERECURSO'
    end
    object cdsCadastroLANC_DESCONTO: TFloatField
      FieldName = 'LANC_DESCONTO'
    end
    object cdsCadastroLANC_CREDITO: TFloatField
      FieldName = 'LANC_CREDITO'
    end
    object cdsCadastroUSUARIO_CADASTRO: TStringField
      FieldName = 'USUARIO_CADASTRO'
    end
    object cdsCadastroUSUARIO_AUTERACAO: TStringField
      FieldName = 'USUARIO_AUTERACAO'
    end
    object cdsCadastroUSUARIO_EXCLUSAO: TStringField
      FieldName = 'USUARIO_EXCLUSAO'
    end
    object cdsCadastroDATA_CADASTRO: TDateTimeField
      FieldName = 'DATA_CADASTRO'
    end
    object cdsCadastroDATA_EXCLUSAO: TDateTimeField
      FieldName = 'DATA_EXCLUSAO'
    end
    object cdsCadastroDATA_AUTERACAO: TDateTimeField
      FieldName = 'DATA_AUTERACAO'
    end
    object cdsCadastroEXCLUIDO: TStringField
      FieldName = 'EXCLUIDO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroUSUARIO_RECUPERACAO: TStringField
      FieldName = 'USUARIO_RECUPERACAO'
    end
    object cdsCadastroDATA_RECUPERACAO: TDateTimeField
      FieldName = 'DATA_RECUPERACAO'
    end
    object cdsCadastroLANC_CONTACORRENTE_DESC: TStringField
      DisplayLabel = 'Conta Corrente'
      FieldName = 'LANC_CONTACORRENTE_DESC'
      Size = 40
    end
    object cdsCadastroLANC_INDCENTSAI: TStringField
      Alignment = taCenter
      DisplayLabel = ' '
      FieldName = 'LANC_INDCENTSAI'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroSITUACAO_DA_REPLICACAO: TStringField
      FieldName = 'SITUACAO_DA_REPLICACAO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroDATA_REPLICACAO: TDateTimeField
      FieldName = 'DATA_REPLICACAO'
    end
    object cdsCadastroLANC_PEDIDO: TIntegerField
      Alignment = taCenter
      DisplayLabel = 'N'#186'Pedido'
      FieldName = 'LANC_PEDIDO'
    end
    object cdsCadastroLANC_NOTAFISCAL: TIntegerField
      Alignment = taCenter
      DisplayLabel = 'N'#186'Nota Fiscal'
      FieldName = 'LANC_NOTAFISCAL'
      DisplayFormat = '#,##0.00'
    end
    object cdsCadastroLANC_VALORFINAL: TFloatField
      DisplayLabel = 'Valor Final'
      FieldName = 'LANC_VALORFINAL'
      DisplayFormat = '#,##0.00'
    end
  end
  inherited dsCamposPesquisa: TDataSource
    Left = 320
    Top = 208
  end
  inherited OpenDialog1: TOpenDialog
    Left = 24
    Top = 112
  end
  object DSConta: TDataSource
    DataSet = DMFinanceiro.QConta
    Left = 376
    Top = 496
  end
  object DSPlano: TDataSource
    DataSet = DMFinanceiro.QPlano
    OnDataChange = DSPlanoDataChange
    Left = 336
    Top = 496
  end
  object DSEspecie: TDataSource
    DataSet = DMFinanceiro.QEspecie
    OnDataChange = DSEspecieDataChange
    Left = 136
    Top = 496
  end
  object DSCentro: TDataSource
    DataSet = DMFinanceiro.QCentro
    Left = 32
    Top = 496
  end
  object QAux: TQuery
    DatabaseName = 'base'
    RequestLive = True
    SQL.Strings = (
      
        'Select Lanc_Codigo,Lanc_Data,Cont_Corr_Descricao,Lanc_Historico,' +
        'Lanc_Documento,PlanoContas.Descricao,Esp_Descricao,Lanc_Cheque,L' +
        'anc_Nominal,Lanc_CPCR,Lanc_Valor,Lanc_Desconto,Lanc_JurosMulta'
      
        'from PlanoContas Right join (especie Right join ( Lancamento Lef' +
        't join ContaCorrente on  Cont_Corr_Codigo = Lanc_Conta ) on lanc' +
        '_Especie = esp_Codigo  )on Lanc_plano = PlanoContas.Codigo  ')
    Left = 376
    Top = 421
  end
  object DSPlanoContabil: TDataSource
    DataSet = QPlanoContabil
    Left = 256
    Top = 496
  end
  object QPlanoContabil: TQuery
    BeforeOpen = QPlanoContabilBeforeOpen
    DatabaseName = 'base'
    SQL.Strings = (
      'select * from PlanoContabilidade'
      'Where CodigoEmpresa = :Emp'
      'Order By PlanoCont_CodigoContabil')
    Left = 536
    Top = 400
    ParamData = <
      item
        DataType = ftString
        Name = 'Emp'
        ParamType = ptUnknown
        Value = '1'
      end>
  end
  object DSVerificaCheque: TDataSource
    DataSet = QVerificaCheque
    Left = 296
    Top = 496
  end
  object QVerificaCheque: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'select * from lancamento'
      
        'where (lanc_cheque is not null) and (lanc_datacheque is not null' +
        ')')
    Left = 520
    Top = 448
  end
  object DataSource1: TDataSource
    DataSet = QVerificaCheque
    Left = 216
    Top = 496
  end
  object qryAux: TQuery
    DatabaseName = 'base'
    Left = 584
    Top = 464
  end
  object dsUsuario: TDataSource
    DataSet = DMGestao.QUsuario
    Left = 96
    Top = 496
  end
  object Qtemp: TQuery
    DatabaseName = 'base'
    Left = 448
    Top = 432
  end
  object dsFonteRecurso: TDataSource
    DataSet = DMFinanceiro.QFonteRecurso
    Left = 176
    Top = 496
  end
  object ActionManager1: TActionManager
    Left = 592
    Top = 224
    StyleName = 'XP Style'
    object actConciliaDesconcilia: TAction
      Caption = 'Conciliado'
      OnExecute = actConciliaDesconciliaExecute
    end
  end
  object QContasPagar: TQuery
    Active = True
    DatabaseName = 'base'
    SQL.Strings = (
      'SELECT * FROM CONTASPAGAR')
    Left = 448
    Top = 32
  end
end
